program printarr
implicit none

double precision, dimension(10) :: a
integer, dimension(2) :: b
integer :: i
integer :: n

b(1) = 2
b(2) = 4

do i  = 1, 10
  a(i) = dble(i)
end do

n =10 

write(*,*) (2d0*a(i),i=1,n)
write(*,*) (b(i),i=1,2)
end program
